home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
quartz
/
q0498.dms
/
q0498.adf
/
BBINSTALL
< prev
next >
Wrap
Text File
|
1992-06-07
|
2KB
|
87 lines
colour=1
yyval=12
skipdel=0
cpytitl:dc.b "Lockpick Fast Copy Request",0
cpyques:dc.b "Do you need a copy of the original?",0
docopy=simplereq(cpytitl,cpyques)
cmp docopy,1,0,drivenum=fcopy(1)
cmp drivenum,0,-1,goto byebye
pnf: dc.b "Protection not found!",0
pnf2: dc.b "*** PARAMETER FAILED! ***",0
worktxt:dc.b "Working, please stand by...",0
prof: dc.b "*** Parameter Successful! ***",0
remdsk: dc.b "Remove disk from DF0: then click in this window...",0
insdsk: dc.b "Insert BACKUP of",0
insdsk2:dc.b " in DF0: then click in this window...",0
dc.w 0
* Open Window and print intro text...
start: validate(drivenum,1)
cmp ^winname,"con:",0,winname=winname+18
pokel(wtitle,winname)
gosub openwin
cmp docopy,1,0,goto main
gosub remm
txtptr=insdsk
gosub print3d
colour=3
txtptr=dname
gosub print3d
colour=1
txtptr=insdsk2
gosub print3d
gosub waitsgn
cmp class,$200000,2,goto chkclow
cmp code,$1b,0,goto remprta
chkclow:cmp class,$200,0,goto remprta
skipdel=1
main: txtptr=worktxt
gosub print3d
cmp skipdel,0,2,goto begit
delay(100)
begit: blklen=winname-xcopy&$fffffe00
xboot=allocmem(blklen,2)
memmove(xboot,xcopy,blklen)
ret=trackdisk(drivenum,3,0,xboot,blklen)
ret=trackdisk(drivenum,4,0,0,0)
freemem(xboot,blklen)
priins6:txtptr=prof
gosub print3d
goto remprt
keyout: gosub remm
gosub waitsgn
cmp mess,0,0,goto keyout
gosub closwin
byebye: validate(drivenum,0)
end
errpnf: txtptr=pnf
gosub print3d
goto prii5a
remprt: delay(150)
remprta:yyval=yyval+10
txtptr=remdsk
gosub print3d
goto keyout
prii5a: txtptr=pnf2
gosub print3d
goto remprt
#i "Params:WINHAND"